home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / usenet / volume2 / puzzlet.ool < prev    next >
Encoding:
Internet Message Format  |  1987-11-30  |  23.9 KB
  1. Path: uunet!tektronix!tekgen!tekred!games-request
  2. From: games-request@tekred.TEK.COM
  3. Newsgroups: comp.sources.games
  4. Subject: v02i099:  puzzletool - a puzzle game for Sun workstations
  5. Message-ID: <1881@tekred.TEK.COM>
  6. Date: 1 Dec 87 01:26:35 GMT
  7. Sender: billr@tekred.TEK.COM
  8. Lines: 572
  9. Approved: billr@tekred.TEK.COM
  10.  
  11. Submitted by: Jiang-Hsing Chu <jchu@mimsy.umd.edu>
  12. Comp.sources.games: Volume 2, Issue 99
  13. Archive-name: puzzletool
  14.  
  15.  
  16. #! /bin/sh
  17. # This is a shell archive.  Remove anything before this line, then unpack
  18. # it by saving it into a file and typing "sh file".  To overwrite existing
  19. # files, type "sh file -c".  You can also feed this as standard input via
  20. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  21. # will see the following message at the end:
  22. #        "End of shell archive."
  23. # Contents:  README Makefile puzzletool.c puzzletool.h
  24. # Wrapped by billr@tekred on Mon Nov 30 17:25:15 1987
  25. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  26. if test -f README -a "${1}" != "-c" ; then 
  27.   echo shar: Will not over-write existing file \"README\"
  28. else
  29. echo shar: Extracting \"README\" \(700 characters\)
  30. sed "s/^X//" >README <<'END_OF_README'
  31. XThe goal of this game is to move down the largest piece to the bottom in 
  32. Xminimal number of movements.  It is known that the puzzle can be solved in 
  33. X86 movements.  To move a piece, point it by the mouse and press the left
  34. Xbutton, hold the left button until you move the mouse to an adjacent empty
  35. Xsquare.  Use the middle button to close the frame into the icon format.  If
  36. Xyou want to quit, press the right button.
  37. X 
  38. XThe game works on SUN workstation only.  It is tested in SUN 3/50.
  39. XSome ideas on setting up the interface were borrowed from the calctool program
  40. Xby Rich Burridge.  Have fun.
  41. X                                    Jiang-Hsing Chu
  42. X                                    jchu@mimsy.umd.edu
  43. END_OF_README
  44. if test 700 -ne `wc -c <README`; then
  45.     echo shar: \"README\" unpacked with wrong size!
  46. fi
  47. # end of overwriting check
  48. fi
  49. if test -f Makefile -a "${1}" != "-c" ; then 
  50.   echo shar: Will not over-write existing file \"Makefile\"
  51. else
  52. echo shar: Extracting \"Makefile\" \(146 characters\)
  53. sed "s/^X//" >Makefile <<'END_OF_Makefile'
  54. X
  55. Xpuzzletool:       puzzletool.o
  56. X       cc -g -o puzzletool puzzletool.o -lsuntool -lsunwindow -lpixrect
  57. X
  58. Xpuzzletool.o:     puzzletool.c puzzletool.h
  59. END_OF_Makefile
  60. if test 146 -ne `wc -c <Makefile`; then
  61.     echo shar: \"Makefile\" unpacked with wrong size!
  62. fi
  63. # end of overwriting check
  64. fi
  65. if test -f puzzletool.c -a "${1}" != "-c" ; then 
  66.   echo shar: Will not over-write existing file \"puzzletool.c\"
  67. else
  68. echo shar: Extracting \"puzzletool.c\" \(19087 characters\)
  69. sed "s/^X//" >puzzletool.c <<'END_OF_puzzletool.c'
  70. X#include "puzzletool.h"
  71. X
  72. Xvoid canvas_proc() ;
  73. X
  74. XCanvas canvas, rcanvas ;
  75. XCursor main_cursor ;
  76. XEvent event ;
  77. XFrame frame ;
  78. XIcon puzzletool_icon ;
  79. XPanel panel ;
  80. XPanel_item display_item ;
  81. Xstruct Pixfont *nfont ;
  82. XPixwin *cpw ;
  83. X
  84. Xshort piece0_image[] = {
  85. X/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
  86. X */
  87. X    0x0000,0x0000,0x0000,0x0000,0x7FFF,0xFFFE,0x0000,0x0000,
  88. X    0x7BBB,0xBBBA,0x0000,0x0000,0x6EEE,0xEEEE,0x0000,0x0000,
  89. X    0x7777,0x7776,0x0000,0x0000,0x5DDD,0xDDDE,0x0000,0x0000,
  90. X    0x7BBB,0xBBBA,0x0000,0x0000,0x6EEE,0xEEEE,0x0000,0x0000,
  91. X    0x7777,0x7776,0x0000,0x0000,0x5DDD,0xDDDE,0x0000,0x0000,
  92. X    0x7BBB,0xBBBA,0x0000,0x0000,0x6EEE,0xEEEE,0x0000,0x0000,
  93. X    0x7777,0x7776,0x0000,0x0000,0x5DDD,0xDDDE,0x0000,0x0000,
  94. X    0x7BBB,0xBBBA,0x0000,0x0000,0x6EEE,0xEEEE,0x0000,0x0000,
  95. X    0x7777,0x7776,0x0000,0x0000,0x5DDD,0xDDDE,0x0000,0x0000,
  96. X    0x7BBB,0xBBBA,0x0000,0x0000,0x6EEE,0xEEEE,0x0000,0x0000,
  97. X    0x7777,0x7776,0x0000,0x0000,0x5DDD,0xDDDE,0x0000,0x0000,
  98. X    0x7BBB,0xBBBA,0x0000,0x0000,0x6EEE,0xEEEE,0x0000,0x0000,
  99. X    0x7777,0x7776,0x0000,0x0000,0x5DDD,0xDDDE,0x0000,0x0000,
  100. X    0x7BBB,0xBBBA,0x0000,0x0000,0x6EEE,0xEEEE,0x0000,0x0000,
  101. X    0x7777,0x7776,0x0000,0x0000,0x5DDD,0xDDDE,0x0000,0x0000,
  102. X    0x7FFF,0xFFFE,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  103. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  104. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  105. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  106. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  107. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  108. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  109. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  110. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  111. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  112. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  113. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  114. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  115. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  116. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  117. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  118. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
  119. X} ;
  120. Xmpr_static(piece0_pr,64,64,1,piece0_image) ;
  121. X
  122. Xshort piece1_image[] = {
  123. X/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
  124. X */
  125. X    0x0000,0x0000,0x0000,0x0000,0x7FFF,0xFFFE,0x0000,0x0000,
  126. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  127. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  128. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  129. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  130. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  131. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  132. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  133. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  134. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  135. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  136. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  137. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  138. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  139. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  140. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  141. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  142. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  143. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  144. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  145. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  146. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  147. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  148. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  149. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  150. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  151. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  152. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  153. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  154. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  155. X    0x6AAA,0xAAAA,0x0000,0x0000,0x5555,0x5556,0x0000,0x0000,
  156. X    0x7FFF,0xFFFE,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
  157. X} ;
  158. Xmpr_static(piece1_pr,64,64,1,piece1_image) ;
  159. X
  160. Xshort piece2_image[] = {
  161. X/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
  162. X */
  163. X    0x0000,0x0000,0x0000,0x0000,0x7FFF,0xFFFF,0xFFFF,0xFFFE,
  164. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  165. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  166. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  167. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  168. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  169. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  170. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  171. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  172. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  173. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  174. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  175. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  176. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  177. X    0x6AAA,0xAAAA,0xAAAA,0xAAAA,0x5555,0x5555,0x5555,0x5556,
  178. X    0x7FFF,0xFFFF,0xFFFF,0xFFFE,0x0000,0x0000,0x0000,0x0000,
  179. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  180. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  181. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  182. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  183. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  184. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  185. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  186. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  187. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  188. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  189. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  190. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  191. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  192. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  193. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  194. X    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
  195. X} ;
  196. Xmpr_static(piece2_pr,64,64,1,piece2_image) ;
  197. X
  198. Xshort piece3_image[] = {
  199. X/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
  200. X */
  201. X    0x0000,0x0000,0x0000,0x0000,0x7FFF,0xFFFF,0xFFFF,0xFFFE,
  202. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  203. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  204. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  205. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  206. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  207. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  208. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  209. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  210. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  211. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  212. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  213. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  214. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  215. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  216. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  217. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  218. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  219. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  220. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  221. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  222. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  223. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  224. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  225. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  226. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  227. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  228. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  229. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  230. X    0x4444,0x4444,0x4444,0x4446,0x5111,0x1111,0x1111,0x1112,
  231. X    0x4888,0x8888,0x8888,0x888A,0x6222,0x2222,0x2222,0x2222,
  232. X    0x7FFF,0xFFFF,0xFFFF,0xFFFE,0x0000,0x0000,0x0000,0x0000
  233. X} ;
  234. Xmpr_static(piece3_pr,64,64,1,piece3_image) ;
  235. X
  236. Xshort icon_image[] = {
  237. X/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
  238. X */
  239. X    0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,
  240. X    0xC000,0x0000,0x0000,0x0003,0xC000,0x0000,0x0000,0x0003,
  241. X    0xC000,0x0000,0x0000,0x0003,0xC000,0x0000,0x0000,0x0003,
  242. X    0xC000,0x0000,0x0000,0x0003,0xC000,0x0000,0x0000,0x0003,
  243. X    0xC000,0xFF00,0x0007,0xC003,0xC003,0xFF80,0x000F,0xE003,
  244. X    0xC007,0x83C0,0x001F,0xF003,0xC00E,0x00E0,0x003F,0xF803,
  245. X    0xC018,0x0070,0x003F,0xF803,0xC038,0x0038,0x003F,0xF803,
  246. X    0xC030,0x0018,0x003F,0xF803,0xC070,0x001C,0x003F,0xF803,
  247. X    0xC060,0x000C,0x001F,0xF003,0xC000,0x000C,0x001F,0xF003,
  248. X    0xC000,0x000C,0x001F,0xF003,0xC000,0x000C,0x001F,0xE003,
  249. X    0xC000,0x000C,0x001F,0xE003,0xC000,0x001C,0x000F,0xE003,
  250. X    0xC000,0x0018,0x000F,0xE003,0xC000,0x0038,0x000F,0xE003,
  251. X    0xC000,0x0070,0x000F,0xC003,0xC000,0x00E0,0x000F,0xC003,
  252. X    0xC000,0x03C0,0x000F,0xC003,0xC000,0x3F80,0x000F,0xC003,
  253. X    0xC000,0x3E00,0x000F,0xC003,0xC000,0x3000,0x0007,0x8003,
  254. X    0xC000,0x3000,0x0007,0x8003,0xC000,0x3000,0x0007,0x8003,
  255. X    0xC000,0x3000,0x0007,0x8003,0xC000,0x3000,0x0007,0x8003,
  256. X    0xC000,0x3000,0x0007,0x0003,0xC000,0x3000,0x0007,0x0003,
  257. X    0xC000,0x3000,0x0007,0x0003,0xC000,0x3000,0x0003,0x0003,
  258. X    0xC000,0x3000,0x0003,0x0003,0xC000,0x3000,0x0002,0x0003,
  259. X    0xC000,0x3000,0x0002,0x0003,0xC000,0x3000,0x0002,0x0003,
  260. X    0xC000,0x0000,0x0000,0x0003,0xC000,0x0000,0x0000,0x0003,
  261. X    0xC000,0x0000,0x0000,0x0003,0xC000,0x3800,0x0007,0x0003,
  262. X    0xC000,0x7C00,0x001F,0xC003,0xC000,0xFE00,0x001F,0xC003,
  263. X    0xC000,0xFE00,0x003F,0xE003,0xC000,0xFE00,0x003F,0xE003,
  264. X    0xC000,0x7C00,0x003F,0xE003,0xC000,0x3800,0x001F,0xC003,
  265. X    0xC000,0x0000,0x001F,0xC003,0xC000,0x0000,0x0007,0x0003,
  266. X    0xC000,0x0000,0x0000,0x0003,0xC000,0x0000,0x0000,0x0003,
  267. X    0xC000,0x0000,0x0000,0x0003,0xC000,0x0000,0x0000,0x0003,
  268. X    0xC000,0x0000,0x0000,0x0003,0xC000,0x0000,0x0000,0x0003,
  269. X    0xC000,0x0000,0x0000,0x0003,0xC000,0x0000,0x0000,0x0003,
  270. X    0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF
  271. X} ;
  272. Xmpr_static(icon_pixrect,64,64,1,icon_image) ;
  273. X
  274. Xint ncolumn,column ;            /* Column number of key pressed. */
  275. Xint m,n ;               /* mouse and index */
  276. Xint nrow,row ;               /* Row number of key pressed. */
  277. Xint step=0;
  278. X
  279. X
  280. Xint board[7][6]= {
  281. X        {-2,-2,-2,-2,-2,-2}, {-2,4,9,9,5,-2}, {-2,4,9,9,5,-2}, 
  282. X        {-2,6,8,8,7,-2}, {-2,6,0,1,7,-2},
  283. X        {-2,-1,2,3,-1,-2}, {-2,-2,-2,-2,-2,-2}
  284. X};
  285. Xint pieces[10][5] = {      
  286. X    {0,2,4,1,1}, {0,3,4,1,1}, {0,2,5,1,1}, {0,3,5,1,1},
  287. X        {1,1,1,1,2}, {1,4,1,1,2}, {1,1,3,1,2}, {1,4,3,1,2},
  288. X        {2,2,3,2,1},{3,2,1,2,2}
  289. X} ;
  290. X
  291. Xchar display[MAXLINE] ;             /* Current calculator display. */
  292. X
  293. X
  294. Xmain(argc,argv)
  295. Xint argc ;
  296. Xchar *argv[] ;
  297. X
  298. X{
  299. X  nfont = pf_open(NORMALFONT) ;     /* Open normal sized font. */
  300. X  puzzletool_icon = icon_create(ICON_WIDTH,64,
  301. X                              ICON_IMAGE,&icon_pixrect,
  302. X                              0) ;
  303. X
  304. X  frame = window_create((Window) 0, FRAME,
  305. X                        FRAME_ICON, puzzletool_icon,
  306. X                        FRAME_SHOW_LABEL, FALSE,
  307. X                        FRAME_SUBWINDOWS_ADJUSTABLE, FALSE,
  308. X                        FRAME_NO_CONFIRM, FALSE,
  309. X                        WIN_TOP_MARGIN, DISPLAY,
  310. X                        WIN_ROW_HEIGHT, PIECE_H,
  311. X                        WIN_COLUMN_WIDTH, PIECE_W,
  312. X                        WIN_ROWS, PIECE_ROWS,
  313. X                        WIN_COLUMNS, PIECE_COLS,
  314. X                        FRAME_ARGS, argc,argv,
  315. X                        0) ;
  316. X
  317. X  panel = window_create(frame, PANEL,
  318. X                        WIN_CONSUME_KBD_EVENTS, WIN_ASCII_EVENTS, 0,
  319. X                        WIN_HEIGHT, DISPLAY,
  320. X                        0) ;
  321. X
  322. X  canvas = window_create(frame,CANVAS,
  323. X                         WIN_BELOW,panel,
  324. X                         WIN_WIDTH,TOTAL_WIDTH,
  325. X                         WIN_HEIGHT,TOTAL_HEIGHT,
  326. X                         WIN_FONT,nfont,
  327. X                         WIN_EVENT_PROC,canvas_proc,
  328. X                         0) ;
  329. X  WINDOW_SET(canvas,WIN_CONSUME_KBD_EVENT,WIN_ASCII_EVENTS,0) ;
  330. X
  331. X  display_item = panel_create_item(panel,PANEL_MESSAGE,
  332. X                                PANEL_LABEL_X,10,
  333. X                                PANEL_LABEL_Y,DISPLAY-15,
  334. X                                PANEL_LABEL_FONT,nfont,
  335. X                                PANEL_LABEL_STRING,"",
  336. X                                0) ;
  337. X  cpw = canvas_pixwin(canvas) ;
  338. X  main_cursor = window_get(canvas,WIN_CURSOR) ;
  339. X
  340. X  make_canvas() ;            /* Draw the calculators pieces. */
  341. X  window_fit(frame) ;
  342. X  window_main_loop(frame) ;
  343. X  exit(0) ;
  344. X}
  345. X
  346. X/*ARGSUSED*/
  347. Xstatic void
  348. Xcanvas_proc(win,event,arg)
  349. XCanvas  win ;
  350. XEvent *event ;
  351. Xcaddr_t arg ;
  352. X
  353. X{
  354. X  if (event_is_button(event) && event_is_down(event))
  355. X    {
  356. X      switch (event_id(event))
  357. X        {
  358. X          case MS_LEFT   : column = event_x(event) / PIECE_W ;
  359. X                           row = event_y(event) / PIECE_H ;
  360. X                           n = board[row+1][column+1] ;  m=0;
  361. X                           return;
  362. X          case MS_MIDDLE : WINDOW_SET(frame,FRAME_CLOSED,TRUE,0);
  363. X                           return;
  364. X          case MS_RIGHT  : WINDOW_DESTROY(frame);
  365. X          default:         return ;
  366. X        }
  367. X   }
  368. X  if (event_is_button(event) && event_is_up(event) && n>=0)
  369. X    {
  370. X      switch (event_id(event))
  371. X        {
  372. X          case MS_LEFT   : ncolumn = event_x(event) / PIECE_W;
  373. X                           nrow = event_y(event) / PIECE_H ;
  374. X                           if(board[nrow+1][ncolumn+1]!=-1)return ;
  375. X                           if(ncolumn>column) m=0;
  376. X                           if(nrow<row)m=1;
  377. X                           if(ncolumn<column) m=2;
  378. X                           if(nrow>row)m=3;
  379. X                           do_move();
  380. X          case MS_MIDDLE : 
  381. X          case MS_RIGHT  : 
  382. X          default:         return ;
  383. X        }
  384. X   }
  385. X  return ;
  386. X
  387. X}
  388. X
  389. Xdisplay_test(display)       /* Output result to calculator display. */
  390. Xchar display[MAXLINE];
  391. X{
  392. X  PANEL_SET(display_item,PANEL_LABEL_STRING,display,0) ;
  393. X}
  394. X
  395. Xmake_canvas()
  396. X{
  397. X  int n,x ;
  398. X  char pstr[10] ;
  399. X
  400. X  pw_writebackground(cpw,0,0,TOTAL_WIDTH,TOTAL_HEIGHT,PIX_CLR) ;
  401. X  for(n=0;n<4;++n)
  402. X  pw_write(cpw,(pieces[n][PX]-1)*PIECE_W, (pieces[n][PY]-1)*PIECE_H, pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_SRC,&piece0_pr,0,0) ;
  403. X  for(n=4;n<8;++n)
  404. X  pw_write(cpw,(pieces[n][PX]-1)*PIECE_W, (pieces[n][PY]-1)*PIECE_H, pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_SRC,&piece1_pr,0,0) ;
  405. X  n=8;
  406. X  pw_write(cpw,(pieces[n][PX]-1)*PIECE_W, (pieces[n][PY]-1)*PIECE_H, pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_SRC,&piece2_pr,0,0) ;
  407. X  n=9;
  408. X  pw_write(cpw,(pieces[n][PX]-1)*PIECE_W, (pieces[n][PY]-1)*PIECE_H, pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_SRC,&piece3_pr,0,0) ;
  409. X}
  410. X
  411. Xdo_move()
  412. X{
  413. X   int ox,oy,nx,ny;
  414. X
  415. X   ox=pieces[n][PX];
  416. X   oy=pieces[n][PY];
  417. X   switch(n){
  418. X      case 0:
  419. X      case 1:
  420. X      case 2:
  421. X      case 3: switch(m){
  422. X               case 0: if(board[ny=oy][nx=ox+1]==-1)break;
  423. X                       return;
  424. X               case 1: if(board[ny=oy-1][nx=ox]==-1)break;
  425. X                       return;
  426. X               case 2: if(board[ny=oy][nx=ox-1]==-1)break;
  427. X                       return;
  428. X               case 3: if(board[ny=oy+1][nx=ox]==-1)break;
  429. X                       return;
  430. X              }
  431. X              break;
  432. X      case 4:
  433. X      case 5:
  434. X      case 6:
  435. X      case 7: switch(m){
  436. X               case 0: if(board[oy][ox+1]==-1&&board[oy+1][ox+1]==-1){nx=ox+1;ny=oy;break;}
  437. X                       return;
  438. X               case 1: if(board[oy-1][ox]==-1){nx=ox;ny=oy-1;break;}
  439. X                       return;
  440. X               case 2: if(board[oy][ox-1]==-1&&board[oy+1][ox-1]==-1){nx=ox-1;ny=oy;break;}
  441. X                       return;
  442. X               case 3: if(board[oy+2][ox]==-1){nx=ox;ny=oy+1;break;}
  443. X                       return;
  444. X              }
  445. X              break;
  446. X      case 8: switch(m){
  447. X               case 0: if(board[oy][ox+2]==-1){nx=ox+1;ny=oy;break;}
  448. X                       return;
  449. X               case 1: if(board[oy-1][ox]==-1&&board[oy-1][ox+1]==-1){nx=ox;ny=oy-1;break;}
  450. X                       return;
  451. X               case 2: if(board[oy][ox-1]==-1){nx=ox-1;ny=oy;break;}
  452. X                       return;
  453. X               case 3: if(board[oy+1][ox]==-1&&board[oy+1][ox+1]==-1){nx=ox;ny=oy+1;break;}
  454. X                       return;
  455. X              }
  456. X              break;
  457. X      case 9: switch(m){
  458. X               case 0: if(board[oy][ox+2]==-1&&board[oy+1][ox+2]==-1){nx=ox+1;ny=oy;break;}
  459. X                       return;
  460. X               case 1: if(board[oy-1][ox]==-1&&board[oy-1][ox+1]==-1){nx=ox;ny=oy-1;break;}
  461. X                       return;
  462. X               case 2: if(board[oy][ox-1]==-1&&board[oy+1][ox-1]==-1){nx=ox-1;ny=oy;break;}
  463. X                       return;
  464. X               case 3: if(board[oy+2][ox]==-1&&board[oy+2][ox+1]==-1){nx=ox;ny=oy+1;break;}
  465. X                       return;
  466. X              }
  467. X              break;
  468. X                         
  469. X         }
  470. X   itos(++step,display);
  471. X   display_test(display);
  472. X      pieces[n][PX]=nx;pieces[n][PY]=ny;
  473. X      switch(n){
  474. X         case 0:
  475. X         case 1:
  476. X         case 2:
  477. X         case 3: board[oy][ox]= -1;
  478. X                 board[ny][nx]=n;
  479. X                 pw_writebackground(cpw,(ox-1)*PIECE_W,(oy-1)*PIECE_H,pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_CLR);
  480. X  pw_write(cpw,(nx-1)*PIECE_W, (ny-1)*PIECE_H, pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_SRC,&piece0_pr,0,0) ;
  481. X                 break;
  482. X         case 4:
  483. X         case 5:
  484. X         case 6:
  485. X         case 7: board[oy][ox]=board[oy+1][ox]= -1;
  486. X                 board[ny][nx]=board[ny+1][nx]=n;
  487. X                 pw_writebackground(cpw,(ox-1)*PIECE_W,(oy-1)*PIECE_H,pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_CLR);
  488. X  pw_write(cpw,(nx-1)*PIECE_W, (ny-1)*PIECE_H, pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_SRC,&piece1_pr,0,0) ;
  489. X                 break;
  490. X         case 8: board[oy][ox]=board[oy][ox+1]= -1;
  491. X                 board[ny][nx]=board[ny][nx+1]=n;
  492. X                 pw_writebackground(cpw,(ox-1)*PIECE_W,(oy-1)*PIECE_H,pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_CLR);
  493. X  pw_write(cpw,(nx-1)*PIECE_W, (ny-1)*PIECE_H, pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_SRC,&piece2_pr,0,0) ;
  494. X                 break;
  495. X         case 9: board[oy][ox]=board[oy][ox+1]=board[oy+1][ox]=board[oy+1][ox+1]= -1;
  496. X                 board[ny][nx]=board[ny][nx+1]=board[ny+1][nx]=board[ny+1][nx+1]=n;
  497. X                 pw_writebackground(cpw,(ox-1)*PIECE_W,(oy-1)*PIECE_H,pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_CLR);
  498. X  pw_write(cpw,(nx-1)*PIECE_W, (ny-1)*PIECE_H, pieces[n][PDX]*PIECE_W,pieces[n][PDY]*PIECE_H,PIX_SRC,&piece3_pr,0,0) ;
  499. X                       break;
  500. X      }
  501. X}
  502. X
  503. Xitos(i,c)
  504. Xint i;
  505. Xchar *c;
  506. X
  507. X{  int j;
  508. X   char t;
  509. X
  510. X   c[0]='\0';
  511. X   for(j=1;i>0;j++){
  512. X      c[j]=i%10+'0';
  513. X      i/=10;
  514. X   }
  515. X   for(i=0;i<j/2;++i){
  516. X      t=c[i];
  517. X      c[i]=c[j-1-i];
  518. X      c[j-1-i]=t;
  519. X   }
  520. X}
  521. END_OF_puzzletool.c
  522. if test 19087 -ne `wc -c <puzzletool.c`; then
  523.     echo shar: \"puzzletool.c\" unpacked with wrong size!
  524. fi
  525. # end of overwriting check
  526. fi
  527. if test -f puzzletool.h -a "${1}" != "-c" ; then 
  528.   echo shar: Will not over-write existing file \"puzzletool.h\"
  529. else
  530. echo shar: Extracting \"puzzletool.h\" \(1527 characters\)
  531. sed "s/^X//" >puzzletool.h <<'END_OF_puzzletool.h'
  532. X
  533. X#include <stdio.h>
  534. X#include <strings.h>
  535. X#include <ctype.h>
  536. X
  537. X#include <suntool/sunview.h>
  538. X#include <suntool/canvas.h>
  539. X#include <suntool/panel.h>
  540. X
  541. Xchar *sprintf() ;
  542. X
  543. X#define  FGETS          (void) fgets     /* To make lint happy. */
  544. X#define  FPRINTF        (void) fprintf
  545. X#define  IOCTL          (void) ioctl
  546. X#define  PANEL_SET      (void) panel_set
  547. X#define  READ           (void) read
  548. X#define  SPRINTF        (void) sprintf
  549. X#define  SSCANF         (void) sscanf
  550. X#define  STRCAT         (void) strcat
  551. X#define  STRCPY         (void) strcpy
  552. X#define  STRNCAT        (void) strncat
  553. X#define  STRNCPY            (void) strncpy
  554. X#define  WINDOW_DESTROY     (void) window_destroy
  555. X#define  WINDOW_READ_EVENT  (void) window_read_event
  556. X#define  WINDOW_SET         (void) window_set
  557. X
  558. X#define  NORMALFONT     "/usr/lib/fonts/fixedwidthfonts/screen.r.12"
  559. X
  560. X#define  PIECE_COLS    4                /* No of columns of pieces. */
  561. X#define  PIECE_H       32               /* Number of pixels for height. */
  562. X#define  PIECE_ROWS    5                /* No of rows of pieces. */
  563. X#define  PIECE_W       32               /* No of pixels for width. */
  564. X#define  DISPLAY        30               /* Calculators numerical display. */
  565. X
  566. X#define  EQUAL          !strcmp          /* For character comparisons. */
  567. X#define  MAXLINE        80               /* Length of character strings. */
  568. X#define  TOTAL_HEIGHT   (PIECE_ROWS * PIECE_H)
  569. X#define  TOTAL_WIDTH    (PIECE_COLS * PIECE_W)
  570. X#define  PTYPE        0
  571. X#define  PX        1
  572. X#define  PY        2
  573. X#define  PDX        3
  574. X#define  PDY        4
  575. END_OF_puzzletool.h
  576. if test 1527 -ne `wc -c <puzzletool.h`; then
  577.     echo shar: \"puzzletool.h\" unpacked with wrong size!
  578. fi
  579. # end of overwriting check
  580. fi
  581. echo shar: End of shell archive.
  582. exit 0
  583.